home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 018a / amac41.zip / TIM002.QM < prev    next >
Text File  |  1991-08-03  |  4KB  |  82 lines
  1. *                               TIM002.QM
  2. *                        Written By Tom Hogshead
  3. *                       [ See TIMERxx.QM For Use ]
  4. *                            August 2, 1991
  5. *  Key    Subfile
  6. * =====  =========  =====================================================
  7. * @(2)            --Times Macro Command Sequences For ONE Repeat Only
  8. *                   (Inserted_In) @2
  9. *     {e:\up\TIMER14}--Return To TIMERxx.QM
  10. *
  11. *-- eoi
  12.  
  13. * 
  14. * ----------------------------------------------------------------------
  15. * @(2) Measures Running Time of Macro Command Sequences, ONE Repeat Only
  16. *      146 bytes Sun  07-07-1991  17:47:19 (TH @2)
  17. * ----------------------------------------------------------------------
  18.  
  19. * @2 is used to time single repeats. It gives identical time
  20. * measurements for single repeats with @1, but is a bit simpler and
  21. * easier to modify by the user, if desired. It is also useful for
  22. * timing "slow" command sequences.  Macro command sequences to be timed
  23. * with @2 may not require a block to be marked before execution,
  24. * otherwise it will be unmarked by @2 at the first unmarkblock. Blocks
  25. * may be marked and/or unmarked during execution of the inserted
  26. * command sequences. The cursor must be returned to the line the macro
  27. * was started on for the timing record to remain on the same line.  @q
  28. * is a simpler version that does not have these limitations and is
  29. * almost "foolproof".
  30.  
  31. * Base Time = 0.30 secs/repeat (30 repeats timed)
  32.  
  33. @2  macrobegin
  34.     unmarkblock defaultwordset          *
  35.     setrmargin "80" return              * For timer messages on same line   |
  36.     insertline begline                  *
  37.    "Cycle [Y=yes, Enter=no] ?"          *
  38.     cursorright dropanchor              *
  39.     Pause                               *
  40.     storescrbuff "1" return             * Y, or Enter for only one cycle
  41.     delline                             *
  42.     insertline                          *                                   |
  43.  CYCLE:                                 *
  44.         gotocolumn "41" return          *
  45.         dropanchor begline              *
  46.         fillblock "*" return            * Insert start line
  47.         unmarkblock
  48.         insertline                      *
  49.        "*" gotocolumn "41" return "*"   * Insert starting line of stars
  50.         cursorright                     *
  51. * ■■■■■ Timing Starts Here ■■■■■        *
  52.         Insert_Time                     * Insert start time
  53.         TIME:*                        * No looping
  54. * **** <Commands to Time (Inserted_In) @2 Here> ****
  55.         Cursorright                     * Position for end time
  56.         Insert_Time                     * Insert end time
  57. * ■■■■■ Timing Ends Here ■■■■■          *
  58.         prevposition                    * Move to first char of time
  59.         delrtword delch                 * Delete 'Hour:'
  60.         endline cursorright cursorright *
  61.         insertdate                      * Insertdate
  62.         wordleft delch delch            * Delete 91
  63.         wordleft wordleft wordleft      *
  64.         delrtword                       * Delete day of week
  65.         endline cursorright "@2 "       *
  66.         "1!"                            *
  67.         begline                         *
  68.         getscrbuff "1" return           *
  69.         endline                         * Test if answered 'y' to cycle
  70.         jfalse END:                     * If true, are at eol, cycle again
  71.         delline                         * Delete buff 1 line
  72.         insertline                      * Insert line for next cycle
  73.    jump CYCLE:                          *
  74.  END:                                   *
  75.         unmarkblock delline             * Cleanup
  76.         begline cursorright cursorright * Position cursor to calculate time
  77. *
  78. * 147 bytes Fri  06-28-1991  12:13:39 (TH @2)
  79. * 141 bytes Sun  06-30-1991  22:43:30 (TH @2 removed currentfilename/copy)
  80. * 146 bytes Sun  07-07-1991  17:47:19 (TH @2 add insertline, setrtmargin "80")
  81.  
  82.